#_________________________________________________________________________________________________________________________________
#_________________________________________________________________________________________________________________________________
#_________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
inherit NodeEditor_PM_U PM_Universal
#___________________________________________________________________________________________________________________________________________
method NodeEditor_PM_U constructor {name descr args} {
 this inherited $name $descr
   this set_nb_max_mothers 1
   this set_cmd_placement {}
 eval "$objName configure $args"
 return $objName
}

#___________________________________________________________________________________________________________________________________________
Methodes_set_LC NodeEditor_PM_U [L_methodes_set_NodeEditor] {}          {}
Methodes_get_LC NodeEditor_PM_U [L_methodes_get_NodeEditor] {$this(FC)}

